|
42
|
Is it possible to programmatically expand a folder (sample 1)
with thisform.CascadeFile1
.BeginUpdate
.Layout = "Expand0 = "+chr(34)+"c:\"+chr(34)+";SelectMode0 = 0"
.EndUpdate
endwith
|
|
41
|
Can I limit the size of each cascade column, so the user can't resize them outside of the range I give
with thisform.CascadeFile1
.BeginUpdate
.HeaderVisible = .F.
.Mode = 0
.ColumnsVisible = 2
.MinColumnWidth = 128
.MaxColumnWidth = 256
.EndUpdate
endwith
|
|
40
|
How can I define the width of the cascade column
with thisform.CascadeFile1
.BeginUpdate
.Mode = 0
.DefColumnWidth = 256
.EndUpdate
endwith
|
|
39
|
The scroll bars are too large. Can I make them smaller
with thisform.CascadeFile1
.BeginUpdate
.ScrollWidth = 4
.ScrollHeight = 4
.EndUpdate
endwith
|
|
38
|
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area
with thisform.CascadeFile1
.BeginUpdate
.Object.ScrollPartVisible(0,65536) = .T.
.Object.ScrollPartVisible(1,65536) = .T.
.Object.ScrollPartVisible(2,65536) = .T.
.ScrollWidth = 4
.Object.Background(276) = RGB(240,240,240)
.Object.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Object.Background(404) = .Background(276)
.Object.Background(388) = .Background(260)
.Object.Background(511) = .Background(276)
.EndUpdate
.BeginUpdate
.ColumnsVisible = 2
.HeaderVisible = .F.
.FitCascadeColumns = 3
.EndUpdate
endwith
|
|
37
|
How can I lock / freeze the control events
*** Event event - Notifies the application once the control fires an event. ***
LPARAMETERS EventID
with thisform.CascadeFile1
DEBUGOUT( .EventParam(-2) )
endwith
with thisform.CascadeFile1
.FreezeEvents(.T.)
endwith
|
|
36
|
How can I display the list mode in the first view, and thumbnail in the second view
with thisform.CascadeFile1
.BeginUpdate
.AllowSplitView = 1
.SplitViewHeight = "256"
.Layout = "Select1="+chr(34)+"c:\"+chr(34)+";SelectMode1 = 2"
.Layout = "Select0="+chr(34)+"c:\"+chr(34)+";SelectMode0 = 1"
.EndUpdate
endwith
|
|
35
|
How can I programmatically select a different folder in the second, or third view
with thisform.CascadeFile1
.BeginUpdate
.AllowSplitView = 1
.SplitViewHeight = "256"
.Layout = "Select1="+chr(34)+"d:\"+chr(34)+""
.Layout = "Select0="+chr(34)+"E:\"+chr(34)+""
.EndUpdate
endwith
|
|
34
|
How can I programmatically vertically-split the control
with thisform.CascadeFile1
.BeginUpdate
.AllowSplitView = 2
.SplitViewHeight = "256,256"
.EndUpdate
endwith
|
|
33
|
How can I find if the control is running in DPI mode
with thisform.CascadeFile1
DEBUGOUT( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
endwith
|
|
32
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme
with thisform.CascadeFile1
.BeginUpdate
with .VisualAppearance
.Add(1,"XP:TREEVIEW 2 1")
.Add(2,"XP:TREEVIEW 2 2")
endwith
.Object.Background(180) = 0x1000000
.Object.Background(181) = 0x2000000
.EndUpdate
endwith
|
|
31
|
How can I change the visual appearance of the +/- buttons
with thisform.CascadeFile1
.BeginUpdate
with .VisualAppearance
var_s = "gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB"
var_s = var_s + "cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD"
var_s = var_s + "xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l"
var_s = var_s + "lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgX"
var_s = var_s + "IcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRg"
var_s = var_s + "wZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMI"
var_s = var_s + "NCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA="
.Add(1,var_s)
var_s1 = "gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB"
var_s1 = var_s1 + "cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD"
var_s1 = var_s1 + "xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l"
var_s1 = var_s1 + "lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEe"
var_s1 = var_s1 + "Bkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOF"
var_s1 = var_s1 + "SFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJ"
var_s1 = var_s1 + "tDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI="
.Add(2,var_s1)
endwith
.Object.Background(180) = 0x1000000
.Object.Background(181) = 0x2000000
.EndUpdate
endwith
|
|
30
|
How can I change the color for selected thumbnail
with thisform.CascadeFile1
.BeginUpdate
.Select = "c:\"
.SelectMode = 2
.Object.Background(178) = RGB(255,0,0)
.Object.Background(179) = RGB(128,0,0)
.EndUpdate
endwith
|
|
29
|
How can I change the thumbnail's frame color
with thisform.CascadeFile1
.BeginUpdate
.Select = "c:\"
.SelectMode = 2
.Object.Background(177) = RGB(0,0,1)
.EndUpdate
endwith
|
|
28
|
Turn on the background-alternate colors, for Thumbnail view
with thisform.CascadeFile1
.BeginUpdate
.Select = "c:\"
.SelectMode = 2
.Object.Background(175) = RGB(128,128,128)
.EndUpdate
endwith
|
|
27
|
Is there any option I can highlight the panel view that currently has the focus
with thisform.CascadeFile1
.BeginUpdate
.Object.Background(173) = RGB(128,128,128)
.EndUpdate
endwith
|
|
26
|
I disabled the split bars, the question is how can I change the visual appearance of them
with thisform.CascadeFile1
.BeginUpdate
.Object.Background(18) = RGB(128,128,128)
.Object.Background(171) = .Background(18)
.Object.Background(142) = .Background(18)
.Object.Background(141) = .Background(18)
.Object.Background(170) = RGB(2,0,0)
.Object.Background(172) = .Background(170)
.HeaderVisible = .F.
.Mode = 771 && CascadeModeEnum.exAutoFitOnResizeClient Or CascadeModeEnum.exDisableResizeCascadeColumns Or CascadeModeEnum.exSplitFixCascadeMode
.EndUpdate
endwith
|
|
25
|
The control's split bar looks a bit larger, can I make it smaller
with thisform.CascadeFile1
.BeginUpdate
var_s = "gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVA"
var_s = var_s + "ceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69J"
var_s = var_s + "bwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoi"
var_s = var_s + "C8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFYF"
var_s = var_s + "oFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJlE"
var_s = var_s + "kRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDydw"
var_s = var_s + "8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi0"
var_s = var_s + "CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI"
.VisualAppearance.Add(1,var_s)
.AllowSplitView = 2
.Object.Background(18) = 0x1000000
.Object.Background(142) = 0x1000000
.Object.Background(141) = 0x1000000
.Object.Background(170) = RGB(3,0,0)
.HeaderVisible = .F.
.EndUpdate
endwith
|
|
24
|
How can I change the status bar's visual appearance
with thisform.CascadeFile1
.BeginUpdate
var_s = "gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVA"
var_s = var_s + "ceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69J"
var_s = var_s + "bwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoi"
var_s = var_s + "C8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFYF"
var_s = var_s + "oFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJlE"
var_s = var_s + "kRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDydw"
var_s = var_s + "8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi0"
var_s = var_s + "CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI"
.VisualAppearance.Add(1,var_s)
.StatusBarVisible = 2
.Object.Background(168) = 0x1404040
.Object.Background(169) = RGB(255,255,255)
.Object.Background(174) = 0x1808080
.EndUpdate
endwith
|
|
23
|
How can I change the status bar's visual appearance
with thisform.CascadeFile1
.BeginUpdate
.StatusBarVisible = 2
.Object.Background(168) = RGB(40,40,40)
.Object.Background(169) = RGB(255,255,255)
.Object.Background(174) = RGB(128,128,128)
.EndUpdate
endwith
|
|
22
|
How can I change the visual appearance for all split-bars that the control displays
with thisform.CascadeFile1
.BeginUpdate
var_s = "gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVA"
var_s = var_s + "ceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69J"
var_s = var_s + "bwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoi"
var_s = var_s + "C8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFYF"
var_s = var_s + "oFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJlE"
var_s = var_s + "kRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhulQonaHJlgmGhnDuJ4JmYeoemeSZ2H6H5nhmTJ2h0TQKAoHohmiCgmgqIpokoJJ3iOaBKDydw"
var_s = var_s + "8GkShWhaJZpgoZoaiaaRTmKHokGieJiiKKJqEqFomimaoKg6Hg+CgSouimK5rAqRg4D4axKjaHoSGuCpmjqLprkqdo6i0D4aBKQIgiwSwWkaMZsgsJpGD6LJLAqNIyi0"
var_s = var_s + "CxGlKHJskOahLgKJhzlaK4gi2GxOl6MZtjmTJOjiX5ThSWo5mMM5CkCOpukuNpujubwLiYEY8k2NQ4mqPZNhuZgIj6b5LnaeQ2GXsJrGuQAEAQgI"
.VisualAppearance.Add(1,var_s)
.AllowSplitView = 2
.Object.Background(18) = 0x1000000
.Object.Background(142) = 0x1000000
.Object.Background(141) = 0x1000000
.HeaderVisible = .F.
.EndUpdate
endwith
|
|
21
|
How can I change the visual appearance for all split-bars that the control displays
with thisform.CascadeFile1
.BeginUpdate
.AllowSplitView = 2
.Object.Background(18) = RGB(0,0,1)
.Object.Background(142) = RGB(0,0,1)
.Object.Background(141) = RGB(0,0,1)
.HeaderVisible = .F.
.EndUpdate
endwith
|
|
20
|
How can I change the tooltip's visual appearance
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
with thisform.CascadeFile1
.ShowToolTip("This is a bit of <b>HTML<b> text to be shown when the cursor hovers the control.")
endwith
with thisform.CascadeFile1
.BeginUpdate
var_s = "gBFLBCJwBAEHhEJAAEhABEgDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIHQSDSEYyjGLIXAWCYSAAMIyDKAUEhyGCUBileQhVgyJI3RgMUIzVA"
var_s = var_s + "cRRFEiUJQlIZZCgeCZETrPcaUVDcTQHJyRYDlWA3NBwJAAVTVcT0FJdCxEGiRBiqOZ5CAqHIeU7IMI2HTNMStDCYRpEW4bTocMJ1QKNNzyRIkRShC6zLRnDAwApyLIuT"
var_s = var_s + "BOcx0Pb+CQ5HgAMgnbA6Bg2XYNTRYNKRRjYKwTKCQJ5tOCbNq2W6WUhBFb2DYdewTQIAM6gO0cQyiAC2Lb0aR5brKdIoXpeAAcDblF4/BLZAA2DZsOhzBpjYreNBRBhu"
var_s = var_s + "C+G4oFQOQ8liXw/BEX5pg4dY8GgHpCiGNJtHadJwDGFp7HuQpiF2OBRHsHZ7g+ZJkHofB7HARAkiAaQYkcQZUHIGRUGQDIuE2BAhDYBxGkMZAkCgRxRnWKAYEYB4Elma"
var_s = var_s + "QJAGQ42BgOxPCgdJMgeS7/CKCJiEiCJDgmThYiSfoKmGNAOBsOYjAMEgyDcYxDi4NoNmOCJmDoMhjkMYg+D8ZAEAyd4QkwWQUmqEZOmkJhKhKZJJDYSg8mUAwiFIOZlE"
var_s = var_s + "QDJVhWTR5GSb4WmSaR2F6FpOniJJlDGJhEA4MgxA4OYknGGpPAmNhuhulRGHKGxLjmVQDC+J4DiYeg8GGWYuH6H5oAoBoCgcTwimaBodmeGZongPRPCoCoOiOZ5qBIIo"
var_s = var_s + "iAuaZomkPoPGOToEiaaZKHaHYfiUA5OhMAAngoVh6iYKYqHqKoqmGWoGiOKRkHOKJ7D2TxKgaNotmuCpmFAPQrkqPh4iwaw6laOowmwOpwnSL4LmiXJ9D4TxbBqTozm0"
var_s = var_s + "CxGjwPRtEsIJsjWT4Dlydo1C2Sx2l6N5uAOWpijIDpbhYQ42i4K4mmqOpukuMpnjIJIjmKco5m8S5WnaPZkDuSJ4h0S46FKcY8m+DAHAGPovkoUhgD4cILmsCpCnCTA2"
var_s = var_s + "nKQgPhwFokh4JpjmsFpEDGDBnBqRpwgwWJ6kSKhZjie5FnGTIXCWR4yAmYh+D+D48g8HpLnMDJHDIPoylObwpWIY5/CyTJzkydw1kSIhzA6ZQ7E+fJrDWUZ0g0JxKksT"
var_s = var_s + "5NDSPJTmUaRcmAN5Nn0FJ/lMdYNGcWpWnWHRaGAMZ2AQDoEDKNhLicVpViQDYnGqWpPl2HxFDQNwJgoLoGGaCcDInRdjMCuNYbovR2D2FyNgNIcAJC5FWKwNwcBqAzCW"
var_s = var_s + "BoPgTA8BkEwFwN4HRjjyAMH8EgcQ5CaGIFoAAHQ3AoAAIAQBAQ=="
.VisualAppearance.Add(1,var_s)
.Object.Background(64) = 0x1000000
.EndUpdate
endwith
|
|
19
|
How can I change the tooltip's visual appearance
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
with thisform.CascadeFile1
.ShowToolTip("This is a bit of <b>HTML<b> text to be shown when the cursor hovers the control.")
endwith
with thisform.CascadeFile1
.BeginUpdate
.Object.Background(65) = RGB(0,0,1)
.Object.Background(66) = RGB(255,255,0)
.EndUpdate
endwith
|
|
18
|
How can I change the visual appearance of the control's split bar
with thisform.CascadeFile1
.BeginUpdate
var_s = "gBFLBCJwBAEHhEJAAEhABEgDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIHQSDSEYyjGLIXAWCYSAAMIyDKAUEhyGCUBileQhVgyJI3RgMUIzVA"
var_s = var_s + "cRRFEiUJQlIZZCgeCZETrPcaUVDcTQHJyRYDlWA3NBwJAAVTVcT0FJdCxEGiRBiqOZ5CAqHIeU7IMI2HTNMStDCYRpEW4bTocMJ1QKNNzyRIkRShC6zLRnDAwApyLIuT"
var_s = var_s + "BOcx0Pb+CQ5HgAMgnbA6Bg2XYNTRYNKRRjYKwTKCQJ5tOCbNq2W6WUhBFb2DYdewTQIAM6gO0cQyiAC2Lb0aR5brKdIoXpeAAcDblF4/BLZAA2DZsOhzBpjYreNBRBhu"
var_s = var_s + "C+G4oFQOQ8liXw/BEX5pg4dY8GgHpCiGNJtHadJwDGFp7HuQpiF2OBRHsHZ7g+ZJkHofB7HARAkiAaQYkcQZUHIGRUGQDIuE2BAhDYBxGkMZAkCgRxRnWKAYEYB4Elma"
var_s = var_s + "QJAGQ42BgOxPCgdJMgeS7/CKCJiEiCJDgmThYiSfoKmGNAOBsOYjAMEgyDcYxDi4NoNmOCJmDoMhjkMYg+D8ZAEAyd4QkwWQUmqEZOmkJhKhKZJJDYSg8mUAwiFIOZlE"
var_s = var_s + "QDJVhWTR5GSb4WmSaR2F6FpOniJJlDGJhEA4MgxA4OYknGGpPAmNhuhulRGHKGxLjmVQDC+J4DiYeg8GGWYuH6H5oAoBoCgcTwimaBodmeGZongPRPCoCoOiOZ5qBIIo"
var_s = var_s + "iAuaZomkPoPGOToEiaaZKHaHYfiUA5OhMAAngoVh6iYKYqHqKoqmGWoGiOKRkHOKJ7D2TxKgaNotmuCpmFAPQrkqPh4iwaw6laOowmwOpwnSL4LmiXJ9D4TxbBqTozm0"
var_s = var_s + "CxGjwPRtEsIJsjWT4Dlydo1C2Sx2l6N5uAOWpijIDpbhYQ42i4K4mmqOpukuMpnjIJIjmKco5m8S5WnaPZkDuSJ4h0S46FKcY8m+DAHAGPovkoUhgD4cILmsCpCnCTA2"
var_s = var_s + "nKQgPhwFokh4JpjmsFpEDGDBnBqRpwgwWJ6kSKhZjie5FnGTIXCWR4yAmYh+D+D48g8HpLnMDJHDIPoylObwpWIY5/CyTJzkydw1kSIhzA6ZQ7E+fJrDWUZ0g0JxKksT"
var_s = var_s + "5NDSPJTmUaRcmAN5Nn0FJ/lMdYNGcWpWnWHRaGAMZ2AQDoEDKNhLicVpViQDYnGqWpPl2HxFDQNwJgoLoGGaCcDInRdjMCuNYbovR2D2FyNgNIcAJC5FWKwNwcBqAzCW"
var_s = var_s + "BoPgTA8BkEwFwN4HRjjyAMH8EgcQ5CaGIFoAAHQ3AoAAIAQBAQ=="
.VisualAppearance.Add(1,var_s)
.Object.Background(18) = 0x1000000
.HeaderVisible = .F.
.Mode = 0
.EndUpdate
endwith
|
|
17
|
How can I change the visual appearance of the control's split bar
with thisform.CascadeFile1
.BeginUpdate
.Object.Background(18) = RGB(240,240,240)
.HeaderVisible = .F.
.Mode = 0
.EndUpdate
endwith
|
|
16
|
How can I load images into the control
with thisform.CascadeFile1
.Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.StatusBarVisible = 2
.StatusBarLabel = "<img>pic1</img> This is picture into the control's status bar"
endwith
|
|
15
|
Is it possible to show my tooltip
*** MouseMove event - Occurs when the user moves the mouse. ***
LPARAMETERS Button,Shift,X,Y
with thisform.CascadeFile1
.ShowToolTip("This is a bit of <b>HTML<b> text to be shown when the cursor hovers the control.")
endwith
|
|
14
|
Is it possible to change the tooltip's font
with thisform.CascadeFile1
f = CreateObject("StdFont")
with f
.Name = "Tahoma"
.Size = 12
endwith
.ToolTipFont = f
endwith
|
|
13
|
Is it possible to change the tooltip's width
with thisform.CascadeFile1
.ToolTipWidth = 64
endwith
|
|
12
|
How can I disable the control
with thisform.CascadeFile1
.Enabled = .F.
endwith
|
|
11
|
How can I force refreshing the control
with thisform.CascadeFile1
.BeginUpdate
.Refresh
.EndUpdate
endwith
|
|
10
|
How can I prevent showing any tooltip
with thisform.CascadeFile1
.ToolTipDelay = 0
.ToolTipPopDelay = 0
endwith
|
|
9
|
How can I make the control's tooltip to be shown for a longer time
with thisform.CascadeFile1
.ToolTipPopDelay = 10000
endwith
|
|
8
|
How can I make the control's tooltip to be shown faster
with thisform.CascadeFile1
.ToolTipDelay = 1
endwith
|
|
7
|
How can I get the control's handle
with thisform.CascadeFile1
DEBUGOUT( .hWnd )
endwith
|
|
6
|
How can I clears the images into the control
with thisform.CascadeFile1
var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Images(var_s)
.StatusBarVisible = 2
.StatusBarLabel = "<img>1</img> This is an icon into the control's status bar"
.ReplaceIcon(0,-1)
endwith
|
|
5
|
How can I load images into the control
with thisform.CascadeFile1
var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql"
var_s = var_s + "Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0"
var_s = var_s + "ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN"
var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Images(var_s)
.StatusBarVisible = 2
.StatusBarLabel = "<img>1</img> This is an icon into the control's status bar"
endwith
|
|
4
|
How do I get the version of the control I am running
with thisform.CascadeFile1
DEBUGOUT( .Version )
endwith
|
|
3
|
The control's foreground is changed if I open multiple views. What can be the problem
with thisform.CascadeFile1
.ForeColor = RGB(255,0,0)
.ForeColorAlternate = .ForeColor
endwith
|
|
2
|
The control's background is changed if I open multiple views. What can be the problem
with thisform.CascadeFile1
.BackColor = RGB(255,255,0)
.BackColorAlternate = .BackColor
endwith
|
|
1
|
How do I change the control's background color
with thisform.CascadeFile1
.BackColor = RGB(240,240,240)
.BackColorAlternate = .BackColor
.HeaderVisible = .F.
endwith
|